1 GOTO10
2 REM"*** BUGGER SOFTWARE 1984 ***
3 [161]#1,G$:GA[178]G:G[178][198](G$[170]N$):[142]
5 [141]3:F[178]G:[141]3:F[178]F[170]256[172]G:[142]
7 [139]XX[179]XM[171]2[175]VZ[179]XM[171]2[167][142]
8 [153]:[153]"MORE THAN "XM;"CMD WAIT VAR./JUMPS -START AGAIN":[160]1:[128]
10 [153]"LOAD  **  X - R E F  ** 2049":[133]"ON PRG. START ADR.  ";BT
20 [153],,"100":[133]"ON NO.OF VAR./JUMPS ";XM:[153]" PRINTOUT (Y/N)   ? ";
30 [151]198,0:[146]198,1:[161]G$:[139]G$[179][177]"Y"[167]G$[178]"N"
40 P[178]3:[153]G$:[139]G$[178]"Y"[167]P[178]4
50 [134]X$(XM),A$(XM),Z$(XM):N$[178][199](0)
60 [133]" FILENAME = ";G$:G$[178]G$[170]",P,R"
70 [159]1,8,3,G$:[141]3:X[178]G:[141]3:X[178]X[170]256[172]G:G$[178]DS$
80 [139]BT[179][177]X[167][153]" ERROR!":[160]1:[128]
90 [153]"LOAD SEARCHING PRG.":[137]500
100 R[178]X:[139][182](R)[179]256[167][139](R[175]127)[178]R[167]130
110 [139]R[179][177]143[167]670
120 XG[178]1E9:[137]670
130 R$[178][199](R):V$[178]"":[139]R$[179]"A"[176]R$[177]"Z"[167]670
140 [139]R$[178]"E"[167]R[178]GA:[139]R[177]47[175]R[179]58[176]R[178]46[167]670
150 RR[178]0:[137]180
160 [141]3:R[178]G:X0[178]X0[170]1:R$[178][199](R):[139]R[178]0[176]R[178]34[167]220
165 [139]RR[167]210
170 [139]R$[179]"0"[176]R$[177]"Z"[176](R$[177]"9"[175]R$[179]"A")[167]190
180 V$[178]V$[170]R$:[153]R$;:[137]160
190 [139]RR[167]210
200 RR[178]R$[178]"$"[176]R$[178]"%":[139]RR[167][153]R$;:V$[178]V$[170]R$:[137]160
210 [139]R$[178]"("[167][153]R$;:V$[178]V$[170]R$
220 [153]" ";:[139]VZ[179]0[167]250
230 R[178][171]1:[129]I[178]0[164]VZ:[139]A$(I)[178]V$[167]R[178]I:I[178]VZ[170]1
240 [130]:[139]R[177][178]0[167]270
250 [141]7:VZ[178]VZ[170]1:R$[178][196](XZ):Z$(VZ)[178][201]("       "[170]R$,7)[170]R$
260 A$(VZ)[178]V$:[137]300
270 V$[178][196](XZ):[139][201](Z$(R),[195](V$))[178]V$[167]300
280 [139][195](Z$(R))[179]60[167]Z$(R)[178]Z$(R)[170]V$:[137]300
290 [141]7:VZ[178]VZ[170]1:D[178]0:A$(VZ)[178]A$(R):Z$(VZ)[178]Z$(R):Z$(R)[178][201]("       "[170]V$,7)[170]V$
300 X[178]G:[139]X[178]0[167]640
310 [139]X[178]34[167]XG[178]1[171]XG:[137]670
320 [137]530
400 [139]VZ[179]0[167][153]"NO VARIABLES!":[128]
410 [159]1,P:[157]1:[153]:[153]" VARIABLES X-REF.:":[153]
420 [129]I[178]0[164]VZ:A$(I)[178]A$(I)[170][200](Z$(I),7):[130]:V$[178]"":[129]I[178]0[164]VZ:R$[178]"ZZ
430 FORJ=0TOVZ:Z$=A$(J):IFZ$>V$ANDZ$<R$THENR$=Z$:ZN$=Z$(J)
440 NEXT:R=LEN(R$)-7
450 IFLEFT$(V$,R)=LEFT$(R$,R)THENPRINT" ",:GOTO470
460 PRINTLEFT$(R$,R),
470 V$=R$:PRINTMID$(ZN$,8):NEXT:PRINT#1:CLOSE1:END
500 VZ=-1:XX=-1:XP=BT:GOSUB5:XE=F
510 GOSUB5:XZ=F:PRINT:PRINTXZ,
520 XG=1:FORX0=XP+4TOXE-2:GOSUB3:X=G:IFX=34THENXG=1-XG:GOTO670
530 X=XG*X:IFX<>137ANDX<>138ANDX<>141ANDX<>155ANDX<>167THEN100
540 X$="":XZ$=STR$(XZ):IFDTHEN530
550 X0=X0+1:GOSUB3:X=G:IFX=32THEN550
560 IFX>47ANDX<58THENX$=X$+CHR$(X):GOTO550
570 IFX$=""THEN660
580 XQ=-1:PRINTX$;"  ";:X$=RIGHT$("       "+X$,7):FORXI=0TOXX
590 IFLEFT$(X$(XI),7)=X$THENXQ=XI:XI=XX
600 NEXT:IFXQ<0THENGOSUB7:XX=XX+1:XQ=XX:GOTO630
610 IFLEN(X$(XQ))<55THENX$(XQ)=X$(XQ)+XZ$:GOTO640
620 GOSUB7:XX=XX+1:X$(XX)=X$(XQ)
630 X$(XQ)=X$+"   "+XZ$
640 IFX=0THENX0=XE-2:NEXT:GOTO680
650 IFX=32THENX0=X0+1:GOSUB3:X=G:GOTO640
660 IFX=44THENX$="":GOTO550
670 NEXT:GOSUB3
680 XP=XE:GOSUB5:XE=F:IFXE>0THEN510
690 CLOSE1:IFXX<0THENPRINT:PRINT"NO JUMPS!":GOTO400
700 OPEN1,P:CMD1:PRINT:PRINT" LINE NO. X-REF:":PRINT:XZ$=CHR$(1)
710 FORXQ=0TOXX:X$="A      ":FORX0=0TOXX:XV$=X$(X0):IFXV$>XZ$ANDXV$<X$THENX$=XV$
720 NEXT:XV$=X$:IFLEFT$(XV$,7)=LEFT$(XZ$,7)THENXV$="       "+MID$(X$,8)
730 PRINTXV$:XZ$=X$:NEXT:PRINT#1:CLOSE1:GOTO400